/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Mac / Mod / DialogMgr

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 44 69 61 6c 6f 67 | 4d 67 72 00 00 00 00 00 |..Dialog|Mgr.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 1b 6d 00 | 00 01 3e ac 05 ca e0 ac |......m.|..>.....|
|00000060| 8f 93 27 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..'.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 5a eb 00 00 |........|....Z...|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 ea |sc......|........|
|00000100| 1a 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |........|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 38 1a |Desc....|......8.|
|00000160| 00 00 09 00 00 00 30 1a | 00 00 00 00 00 00 00 82 |......0.|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 da 19 00 00 |........|........|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 df 17 00 00 |sc......|........|
|000001f0| 0f 00 00 00 d7 17 00 00 | 00 00 00 00 00 00 f9 03 |........|........|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 2c 00 00 00 00 00 00 00 |........|,.......|
|00000230| 1f 00 00 00 00 00 00 00 | 00 01 00 00 00 00 47 65 |........|......Ge|
|00000240| 6e 65 76 61 00 7c be 01 | 00 00 00 00 00 90 01 00 |neva.|..|........|
|00000250| 00 00 00 15 00 00 00 01 | 82 f2 0d 00 00 00 00 00 |........|........|
|00000260| 00 00 38 00 00 00 00 00 | 00 00 1f 00 00 00 00 00 |..8.....|........|
|00000270| 00 00 00 01 00 00 00 00 | 47 65 6e 65 76 61 00 7c |........|Geneva.||
|00000280| be 01 00 01 00 00 00 90 | 01 00 00 00 00 06 00 00 |........|........|
|00000290| 00 01 00 00 00 00 08 ea | 08 00 50 53 02 00 82 f1 |........|..PS....|
|000002a0| 53 74 64 53 74 61 6d 70 | 73 2e 53 74 64 56 69 65 |StdStamp|s.StdVie|
|000002b0| 77 44 65 73 63 00 f2 03 | 00 00 00 00 00 00 00 2d |wDesc...|.......-|
|000002c0| 00 00 00 00 00 00 00 10 | 00 00 00 00 00 00 cb 07 |........|........|
|000002d0| 09 00 1b 00 17 00 2f 00 | 33 00 00 01 03 00 00 00 |....../.|3.......|
|000002e0| 00 01 00 00 00 01 56 00 | 00 00 00 0a 00 00 00 02 |......V.|........|
|000002f0| 82 f2 0d 00 00 00 00 00 | 00 00 03 01 00 00 00 00 |........|........|
|00000300| 00 00 1f 00 00 00 00 00 | 00 00 00 01 00 00 00 00 |........|........|
|00000310| 47 65 6e 65 76 61 00 7c | be 01 00 00 00 00 00 26 |Geneva.||.......&|
|00000320| 02 00 00 00 00 06 00 00 | 00 00 3e 00 00 00 02 08 |........|..>.....|
|00000330| 00 00 00 00 09 00 00 00 | 02 07 00 00 00 00 09 00 |........|........|
|00000340| 00 00 02 08 00 00 00 00 | 08 00 00 00 02 07 00 00 |........|........|
|00000350| 00 00 09 00 00 00 02 07 | 00 00 00 00 09 00 00 00 |........|........|
|00000360| 02 08 00 00 00 00 09 00 | 00 00 02 08 00 00 00 00 |........|........|
|00000370| 0a 00 00 00 02 08 00 00 | 00 00 0a 00 00 00 02 07 |........|........|
|00000380| 00 00 00 00 0a 00 00 00 | 02 08 00 00 00 00 09 00 |........|........|
|00000390| 00 00 02 0b 00 00 00 00 | 0c 00 00 00 02 02 00 00 |........|........|
|000003a0| 00 00 09 00 00 00 02 06 | 00 00 00 00 0a 00 00 00 |........|........|
|000003b0| 02 08 00 00 00 00 09 00 | 00 00 02 08 00 00 00 00 |........|........|
|000003c0| 09 00 00 00 02 0b 00 00 | 00 00 5f 00 00 00 02 0d |........|.._.....|
|000003d0| 00 00 00 00 b0 00 00 00 | 02 0a 00 00 00 00 1f 00 |........|........|
|000003e0| 00 00 02 0e 00 00 00 00 | f8 00 00 00 02 0a 00 00 |........|........|
|000003f0| 00 00 21 00 00 00 02 0b | 00 00 00 00 2d 00 00 00 |..!.....|....-...|
|00000400| 03 82 f2 0d 00 00 00 00 | 00 00 00 31 00 00 00 00 |........|...1....|
|00000410| 00 00 00 1f 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000420| 00 47 65 6e 65 76 61 00 | 7c be 01 00 00 00 00 00 |.Geneva.||.......|
|00000430| bc 02 00 00 00 00 12 00 | 00 00 00 6f 00 00 00 04 |........|...o....|
|00000440| 82 f2 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 1f 00 00 00 00 00 | 00 00 00 01 00 00 00 00 |........|........|
|00000460| 47 65 6e 65 76 61 00 18 | f0 01 00 01 00 00 00 90 |Geneva..|........|
|00000470| 01 00 00 00 00 16 00 00 | 00 00 14 00 00 00 02 0a |........|........|
|00000480| 00 00 00 00 3e 00 00 00 | 02 08 00 00 00 00 38 00 |....>...|......8.|
|00000490| 00 00 02 09 00 00 00 00 | 5f 00 00 00 04 29 00 00 |........|_....)..|
|000004a0| 00 00 14 00 00 00 02 09 | 00 00 00 00 08 01 00 00 |........|........|
|000004b0| 02 0d 00 00 00 00 7e 00 | 00 00 02 0b 00 00 00 00 |......~.|........|
|000004c0| 34 00 00 00 02 0d 00 00 | 00 00 27 00 00 00 04 1e |4.......|..'.....|
|000004d0| 00 00 00 00 14 00 00 00 | 02 0c 00 00 00 00 54 00 |........|......T.|
|000004e0| 00 00 02 0d 00 00 00 00 | 4d 00 00 00 02 0c 00 00 |........|M.......|
|000004f0| 00 00 8a 00 00 00 02 06 | 00 00 00 00 86 00 00 00 |........|........|
|00000500| 02 07 00 00 00 00 88 00 | 00 00 02 08 00 00 00 00 |........|........|
|00000510| 8a 00 00 00 02 09 00 00 | 00 00 88 00 00 00 02 0a |........|........|
|00000520| 00 00 00 00 25 00 00 00 | 04 17 00 00 00 00 14 00 |....%...|........|
|00000530| 00 00 02 06 00 00 00 00 | 59 00 00 00 02 09 00 00 |........|Y.......|
|00000540| 00 00 5a 00 00 00 02 09 | 00 00 00 00 5a 00 00 00 |..Z.....|....Z...|
|00000550| 02 0c 00 00 00 00 4b 00 | 00 00 04 30 00 00 00 00 |......K.|...0....|
|00000560| 14 00 00 00 02 09 00 00 | 00 00 52 00 00 00 02 08 |........|..R.....|
|00000570| 00 00 00 00 98 00 00 00 | 02 08 00 00 00 00 8c 00 |........|........|
|00000580| 00 00 02 08 00 00 00 00 | 53 00 00 00 02 08 00 00 |........|S.......|
|00000590| 00 00 4f 00 00 00 02 08 | 00 00 00 00 68 00 00 00 |..O.....|....h...|
|000005a0| 02 0c 00 00 00 00 5b 00 | 00 00 02 06 00 00 00 00 |......[.|........|
|000005b0| 31 00 00 00 02 0e 00 00 | 00 00 73 00 00 00 04 10 |1.......|..s.....|
|000005c0| 00 00 00 00 14 00 00 00 | 02 09 00 00 00 00 48 00 |........|......H.|
|000005d0| 00 00 02 09 00 00 00 00 | 48 00 00 00 02 09 00 00 |........|H.......|
|000005e0| 00 00 57 00 00 00 02 0a | 00 00 00 00 57 00 00 00 |..W.....|....W...|
|000005f0| 03 0b 00 00 00 00 38 00 | 00 00 ff 4d 4f 44 55 4c |......8.|...MODUL|
|00000600| 45 20 4d 61 63 44 69 61 | 6c 6f 67 4d 67 72 3b 0d |E MacDia|logMgr;.|
|00000610| 28 2a 20 63 70 20 02 20 | 2a 29 0d 28 2a 0d 09 43 |(* cp . |*).(*..C|
|00000620| 6f 75 6c 64 44 69 61 6c | 6f 67 2c 20 46 72 65 65 |ouldDial|og, Free|
|00000630| 44 69 61 6c 6f 67 2c 20 | 43 6f 75 6c 64 41 6c 65 |Dialog, |CouldAle|
|00000640| 72 74 2c 20 46 72 65 65 | 41 6c 65 72 74 20 6e 6f |rt, Free|Alert no|
|00000650| 74 20 73 75 70 70 6f 72 | 74 65 64 20 61 6e 79 6d |t suppor|ted anym|
|00000660| 6f 72 65 20 28 6f 62 73 | 6f 6c 65 74 65 29 0d 2a |ore (obs|olete).*|
|00000670| 29 0d 0d 09 49 4d 50 4f | 52 54 20 53 59 53 54 45 |)...IMPO|RT SYSTE|
|00000680| 4d 2c 20 4d 61 63 54 79 | 70 65 73 2c 20 4d 61 63 |M, MacTy|pes, Mac|
|00000690| 45 76 65 6e 74 4d 67 72 | 2c 20 4d 61 63 57 69 6e |EventMgr|, MacWin|
|000006a0| 64 6f 77 4d 67 72 2c 20 | 4d 61 63 54 65 78 74 45 |dowMgr, |MacTextE|
|000006b0| 64 69 74 3b 0d 0d 09 43 | 4f 4e 53 54 0d 09 09 63 |dit;...C|ONST...c|
|000006c0| 74 72 6c 49 74 65 6d 2a | 20 3d 20 34 3b 0d 09 09 |trlItem*| = 4;...|
|000006d0| 62 74 6e 43 74 72 6c 2a | 20 3d 20 30 3b 0d 09 09 |btnCtrl*| = 0;...|
|000006e0| 63 68 6b 43 74 72 6c 2a | 20 3d 20 31 3b 0d 09 09 |chkCtrl*| = 1;...|
|000006f0| 72 61 64 43 74 72 6c 2a | 20 3d 20 32 3b 0d 09 09 |radCtrl*| = 2;...|
|00000700| 72 65 73 43 74 72 6c 2a | 20 3d 20 33 3b 0d 09 09 |resCtrl*| = 3;...|
|00000710| 73 74 61 74 54 65 78 74 | 2a 20 3d 20 34 3b 0d 09 |statText|* = 4;..|
|00000720| 09 65 64 69 74 54 65 78 | 74 2a 20 3d 20 31 36 3b |.editTex|t* = 16;|
|00000730| 0d 09 09 69 63 6f 6e 49 | 74 65 6d 2a 20 3d 20 33 |...iconI|tem* = 3|
|00000740| 32 3b 0d 09 09 70 69 63 | 49 74 65 6d 2a 20 3d 20 |2;...pic|Item* = |
|00000750| 36 34 3b 0d 09 09 75 73 | 65 72 49 74 65 6d 2a 20 |64;...us|erItem* |
|00000760| 3d 20 30 3b 0d 09 09 69 | 74 65 6d 44 69 73 61 62 |= 0;...i|temDisab|
|00000770| 6c 65 2a 20 3d 20 31 32 | 38 3b 0d 0d 09 09 6f 6b |le* = 12|8;....ok|
|00000780| 2a 20 3d 20 31 3b 0d 09 | 09 63 61 6e 63 65 6c 2a |* = 1;..|.cancel*|
|00000790| 20 3d 20 32 3b 0d 0d 09 | 09 73 74 6f 70 49 63 6f | = 2;...|.stopIco|
|000007a0| 6e 2a 20 3d 20 30 3b 0d | 09 09 6e 6f 74 65 49 63 |n* = 0;.|..noteIc|
|000007b0| 6f 6e 2a 20 3d 20 31 3b | 0d 09 09 63 61 75 74 69 |on* = 1;|...cauti|
|000007c0| 6f 6e 49 63 6f 6e 2a 20 | 3d 20 32 3b 0d 0d 09 09 |onIcon* |= 2;....|
|000007d0| 44 6c 67 46 6f 6e 74 20 | 3d 20 30 41 46 41 48 3b |DlgFont |= 0AFAH;|
|000007e0| 0d 09 09 41 43 6f 75 6e | 74 20 3d 20 30 41 39 41 |...ACoun|t = 0A9A|
|000007f0| 48 3b 0d 0d 09 09 48 41 | 4e 44 4c 45 20 3d 20 32 |H;....HA|NDLE = 2|
|00000800| 3b 0d 09 09 43 4f 44 45 | 20 3d 20 31 3b 20 4e 4f |;...CODE| = 1; NO|
|00000810| 53 54 4b 43 48 4b 20 3d | 20 34 3b 0d 0d 09 54 59 |STKCHK =| 4;...TY|
|00000820| 50 45 0d 09 09 44 69 61 | 6c 6f 67 52 65 63 6f 72 |PE...Dia|logRecor|
|00000830| 64 2a 20 3d 20 52 45 43 | 4f 52 44 20 28 4d 61 63 |d* = REC|ORD (Mac|
|00000840| 57 69 6e 64 6f 77 4d 67 | 72 2e 57 69 6e 64 6f 77 |WindowMg|r.Window|
|00000850| 52 65 63 6f 72 64 29 0d | 09 09 09 69 74 65 6d 73 |Record).|...items|
|00000860| 2a 3a 20 4d 61 63 54 79 | 70 65 73 2e 48 61 6e 64 |*: MacTy|pes.Hand|
|00000870| 6c 65 3b 0d 09 09 09 74 | 65 78 74 48 2a 3a 20 4d |le;....t|extH*: M|
|00000880| 61 63 54 65 78 74 45 64 | 69 74 2e 54 45 48 61 6e |acTextEd|it.TEHan|
|00000890| 64 6c 65 3b 0d 09 09 09 | 65 64 69 74 46 69 65 6c |dle;....|editFiel|
|000008a0| 64 2a 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 09 09 |d*: INTE|GER;....|
|000008b0| 65 64 69 74 4f 70 65 6e | 3a 20 49 4e 54 45 47 45 |editOpen|: INTEGE|
|000008c0| 52 3b 0d 09 09 09 61 44 | 65 66 49 74 65 6d 2a 3a |R;....aD|efItem*:|
|000008d0| 20 49 4e 54 45 47 45 52 | 0d 09 09 45 4e 44 3b 0d | INTEGER|...END;.|
|000008e0| 09 09 44 69 61 6c 6f 67 | 50 74 72 2a 20 3d 20 50 |..Dialog|Ptr* = P|
|000008f0| 4f 49 4e 54 45 52 20 54 | 4f 20 44 69 61 6c 6f 67 |OINTER T|O Dialog|
|00000900| 52 65 63 6f 72 64 3b 0d | 0d 09 09 44 69 61 6c 6f |Record;.|...Dialo|
|00000910| 67 54 65 6d 70 6c 61 74 | 65 2a 20 3d 20 52 45 43 |gTemplat|e* = REC|
|00000920| 4f 52 44 20 28 4d 61 63 | 54 79 70 65 73 2e 44 61 |ORD (Mac|Types.Da|
|00000930| 74 61 29 0d 09 09 09 62 | 6f 75 6e 64 73 52 65 63 |ta)....b|oundsRec|
|00000940| 74 2a 3a 20 4d 61 63 54 | 79 70 65 73 2e 52 65 63 |t*: MacT|ypes.Rec|
|00000950| 74 3b 0d 09 09 09 70 72 | 6f 63 49 44 2a 3a 20 49 |t;....pr|ocID*: I|
|00000960| 4e 54 45 47 45 52 3b 0d | 09 09 09 76 69 73 69 62 |NTEGER;.|...visib|
|00000970| 6c 65 2a 3a 20 42 4f 4f | 4c 45 41 4e 3b 0d 09 09 |le*: BOO|LEAN;...|
|00000980| 09 66 69 6c 6c 65 72 31 | 3a 20 42 4f 4f 4c 45 41 |.filler1|: BOOLEA|
|00000990| 4e 3b 0d 09 09 09 67 6f | 41 77 61 79 46 6c 61 67 |N;....go|AwayFlag|
|000009a0| 2a 3a 20 42 4f 4f 4c 45 | 41 4e 3b 0d 09 09 09 66 |*: BOOLE|AN;....f|
|000009b0| 69 6c 6c 65 72 32 3a 20 | 42 4f 4f 4c 45 41 4e 3b |iller2: |BOOLEAN;|
|000009c0| 0d 09 09 09 72 65 66 43 | 6f 6e 2a 3a 20 4c 4f 4e |....refC|on*: LON|
|000009d0| 47 49 4e 54 3b 0d 09 09 | 09 69 74 65 6d 73 49 44 |GINT;...|.itemsID|
|000009e0| 2a 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 09 09 74 |*: INTEG|ER;....t|
|000009f0| 69 74 6c 65 2a 3a 20 4d | 61 63 54 79 70 65 73 2e |itle*: M|acTypes.|
|00000a00| 53 74 72 32 35 35 0d 09 | 09 45 4e 44 3b 0d 0d 09 |Str255..|.END;...|
|00000a10| 09 44 69 61 6c 6f 67 54 | 50 74 72 2a 20 3d 20 50 |.DialogT|Ptr* = P|
|00000a20| 4f 49 4e 54 45 52 20 54 | 4f 20 44 69 61 6c 6f 67 |OINTER T|O Dialog|
|00000a30| 54 65 6d 70 6c 61 74 65 | 3b 0d 09 09 44 69 61 6c |Template|;...Dial|
|00000a40| 6f 67 54 48 6e 64 6c 2a | 20 3d 20 50 4f 49 4e 54 |ogTHndl*| = POINT|
|00000a50| 45 52 20 5b 48 41 4e 44 | 4c 45 5d 20 54 4f 20 44 |ER [HAND|LE] TO D|
|00000a60| 69 61 6c 6f 67 54 65 6d | 70 6c 61 74 65 3b 0d 09 |ialogTem|plate;..|
|00000a70| 09 0d 09 09 4d 6f 64 61 | 6c 46 69 6c 74 65 72 50 |....Moda|lFilterP|
|00000a80| 72 6f 63 50 74 72 2a 20 | 3d 20 50 52 4f 43 45 44 |rocPtr* |= PROCED|
|00000a90| 55 52 45 20 28 74 68 65 | 44 69 61 6c 6f 67 3a 20 |URE (the|Dialog: |
|00000aa0| 44 69 61 6c 6f 67 50 74 | 72 3b 20 56 41 52 20 74 |DialogPt|r; VAR t|
|00000ab0| 68 65 45 76 65 6e 74 3a | 20 4d 61 63 45 76 65 6e |heEvent:| MacEven|
|00000ac0| 74 4d 67 72 2e 45 76 65 | 6e 74 52 65 63 6f 72 64 |tMgr.Eve|ntRecord|
|00000ad0| 3b 20 56 41 52 20 69 74 | 65 6d 48 69 74 3a 20 49 |; VAR it|emHit: I|
|00000ae0| 4e 54 45 47 45 52 29 3a | 20 42 4f 4f 4c 45 41 4e |NTEGER):| BOOLEAN|
|00000af0| 3b 0d 0d 0d 09 28 2a 2a | 20 49 6e 69 74 69 61 6c |;....(**| Initial|
|00000b00| 69 7a 61 74 69 6f 6e 20 | 2a 2a 29 0d 0d 09 50 52 |ization |**)...PR|
|00000b10| 4f 43 45 44 55 52 45 20 | 5b 43 4f 44 45 5d 20 45 |OCEDURE |[CODE] E|
|00000b20| 72 72 6f 72 53 6f 75 6e | 64 2a 20 28 73 6f 75 6e |rrorSoun|d* (soun|
|00000b30| 64 50 72 6f 63 3a 20 4d | 61 63 54 79 70 65 73 2e |dProc: M|acTypes.|
|00000b40| 50 72 6f 63 50 74 72 29 | 20 30 41 39 48 2c 20 30 |ProcPtr)| 0A9H, 0|
|00000b50| 38 43 48 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |8CH;..PR|OCEDURE |
|00000b60| 5b 43 4f 44 45 5d 20 53 | 79 73 42 65 65 70 2a 20 |[CODE] S|ysBeep* |
|00000b70| 28 64 75 72 61 74 69 6f | 6e 3a 20 49 4e 54 45 47 |(duratio|n: INTEG|
|00000b80| 45 52 29 20 30 41 39 48 | 2c 20 30 43 38 48 3b 0d |ER) 0A9H|, 0C8H;.|
|00000b90| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 5b 4e 4f 53 |..PROCED|URE [NOS|
|00000ba0| 54 4b 43 48 4b 5d 20 53 | 65 74 44 41 46 6f 6e 74 |TKCHK] S|etDAFont|
|00000bb0| 2a 20 28 66 6f 6e 74 4e | 75 6d 3a 20 49 4e 54 45 |* (fontN|um: INTE|
|00000bc0| 47 45 52 29 3b 0d 09 42 | 45 47 49 4e 0d 09 09 53 |GER);..B|EGIN...S|
|00000bd0| 59 53 54 45 4d 2e 4d 4f | 56 45 28 53 59 53 54 45 |YSTEM.MO|VE(SYSTE|
|00000be0| 4d 2e 41 44 52 28 66 6f | 6e 74 4e 75 6d 29 2c 20 |M.ADR(fo|ntNum), |
|00000bf0| 44 6c 67 46 6f 6e 74 2c | 20 32 29 0d 09 45 4e 44 |DlgFont,| 2)..END|
|00000c00| 20 53 65 74 44 41 46 6f | 6e 74 3b 0d 0d 0d 09 28 | SetDAFo|nt;....(|
|00000c10| 2a 2a 20 43 72 65 61 74 | 69 6e 67 20 61 6e 64 20 |** Creat|ing and |
|00000c20| 44 69 73 70 6f 73 69 6e | 67 20 6f 66 20 44 69 61 |Disposin|g of Dia|
|00000c30| 6c 6f 67 73 20 2a 2a 29 | 0d 0d 09 50 52 4f 43 45 |logs **)|...PROCE|
|00000c40| 44 55 52 45 20 5b 43 4f | 44 45 5d 20 4e 65 77 44 |DURE [CO|DE] NewD|
|00000c50| 69 61 6c 6f 67 2a 20 28 | 64 53 74 6f 72 61 67 65 |ialog* (|dStorage|
|00000c60| 3a 20 4d 61 63 54 79 70 | 65 73 2e 50 74 72 3b 20 |: MacTyp|es.Ptr; |
|00000c70| 62 6f 75 6e 64 73 52 65 | 63 74 3a 20 4d 61 63 54 |boundsRe|ct: MacT|
|00000c80| 79 70 65 73 2e 52 65 63 | 74 3b 20 74 69 74 6c 65 |ypes.Rec|t; title|
|00000c90| 3a 20 4d 61 63 54 79 70 | 65 73 2e 53 74 72 32 35 |: MacTyp|es.Str25|
|00000ca0| 35 3b 0d 09 09 09 09 09 | 09 09 09 76 69 73 69 62 |5;......|...visib|
|00000cb0| 6c 65 3a 20 42 4f 4f 4c | 45 41 4e 3b 20 70 72 6f |le: BOOL|EAN; pro|
|00000cc0| 63 49 44 3a 20 49 4e 54 | 45 47 45 52 3b 20 62 65 |cID: INT|EGER; be|
|00000cd0| 68 69 6e 64 3a 20 4d 61 | 63 57 69 6e 64 6f 77 4d |hind: Ma|cWindowM|
|00000ce0| 67 72 2e 57 69 6e 64 6f | 77 50 74 72 3b 0d 09 09 |gr.Windo|wPtr;...|
|00000cf0| 09 09 09 09 09 09 67 6f | 41 77 61 79 46 6c 61 67 |......go|AwayFlag|
|00000d00| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 20 72 65 66 43 6f |: BOOLEA|N; refCo|
|00000d10| 6e 3a 20 4c 4f 4e 47 49 | 4e 54 3b 20 69 74 65 6d |n: LONGI|NT; item|
|00000d20| 73 3a 20 4d 61 63 54 79 | 70 65 73 2e 48 61 6e 64 |s: MacTy|pes.Hand|
|00000d30| 6c 65 29 3a 20 44 69 61 | 6c 6f 67 50 74 72 20 30 |le): Dia|logPtr 0|
|00000d40| 41 39 48 2c 20 30 37 44 | 48 3b 0d 09 50 52 4f 43 |A9H, 07D|H;..PROC|
|00000d50| 45 44 55 52 45 20 5b 43 | 4f 44 45 5d 20 47 65 74 |EDURE [C|ODE] Get|
|00000d60| 4e 65 77 44 69 61 6c 6f | 67 2a 20 28 64 69 61 6c |NewDialo|g* (dial|
|00000d70| 6f 67 49 44 3a 20 49 4e | 54 45 47 45 52 3b 20 64 |ogID: IN|TEGER; d|
|00000d80| 53 74 6f 72 61 67 65 3a | 20 4d 61 63 54 79 70 65 |Storage:| MacType|
|00000d90| 73 2e 50 74 72 3b 0d 09 | 09 09 09 09 09 09 09 62 |s.Ptr;..|.......b|
|00000da0| 65 68 69 6e 64 3a 20 4d | 61 63 57 69 6e 64 6f 77 |ehind: M|acWindow|
|00000db0| 4d 67 72 2e 57 69 6e 64 | 6f 77 50 74 72 29 3a 20 |Mgr.Wind|owPtr): |
|00000dc0| 44 69 61 6c 6f 67 50 74 | 72 20 30 41 39 48 2c 20 |DialogPt|r 0A9H, |
|00000dd0| 30 37 43 48 3b 0d 09 50 | 52 4f 43 45 44 55 52 45 |07CH;..P|ROCEDURE|
|00000de0| 20 5b 43 4f 44 45 5d 20 | 43 6c 6f 73 65 44 69 61 | [CODE] |CloseDia|
|00000df0| 6c 6f 67 2a 20 28 64 69 | 61 6c 6f 67 3a 20 44 69 |log* (di|alog: Di|
|00000e00| 61 6c 6f 67 50 74 72 29 | 20 30 41 39 48 2c 20 30 |alogPtr)| 0A9H, 0|
|00000e10| 38 32 48 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |82H;..PR|OCEDURE |
|00000e20| 5b 43 4f 44 45 5d 20 44 | 69 73 70 6f 73 44 69 61 |[CODE] D|isposDia|
|00000e30| 6c 6f 67 2a 20 28 74 68 | 65 44 69 61 6c 6f 67 3a |log* (th|eDialog:|
|00000e40| 20 44 69 61 6c 6f 67 50 | 74 72 29 20 30 41 39 48 | DialogP|tr) 0A9H|
|00000e50| 2c 20 30 38 33 48 3b 0d | 0d 0d 09 28 2a 2a 20 48 |, 083H;.|...(** H|
|00000e60| 61 6e 64 6c 69 6e 67 20 | 44 69 61 6c 6f 67 20 45 |andling |Dialog E|
|00000e70| 76 65 6e 74 73 20 2a 2a | 29 0d 0d 09 50 52 4f 43 |vents **|)...PROC|
|00000e80| 45 44 55 52 45 20 5b 43 | 4f 44 45 5d 20 4d 6f 64 |EDURE [C|ODE] Mod|
|00000e90| 61 6c 44 69 61 6c 6f 67 | 2a 20 28 66 69 6c 74 65 |alDialog|* (filte|
|00000ea0| 72 50 72 6f 63 3a 20 4d | 61 63 54 79 70 65 73 2e |rProc: M|acTypes.|
|00000eb0| 50 72 6f 63 50 74 72 3b | 20 56 41 52 20 69 74 65 |ProcPtr;| VAR ite|
|00000ec0| 6d 48 69 74 3a 20 49 4e | 54 45 47 45 52 29 20 30 |mHit: IN|TEGER) 0|
|00000ed0| 41 39 48 2c 20 30 39 31 | 48 3b 0d 09 50 52 4f 43 |A9H, 091|H;..PROC|
|00000ee0| 45 44 55 52 45 20 5b 43 | 4f 44 45 5d 20 49 73 44 |EDURE [C|ODE] IsD|
|00000ef0| 69 61 6c 6f 67 45 76 65 | 6e 74 2a 20 28 74 68 65 |ialogEve|nt* (the|
|00000f00| 45 76 65 6e 74 3a 20 4d | 61 63 45 76 65 6e 74 4d |Event: M|acEventM|
|00000f10| 67 72 2e 45 76 65 6e 74 | 52 65 63 6f 72 64 29 3a |gr.Event|Record):|
|00000f20| 20 42 4f 4f 4c 45 41 4e | 20 30 41 39 48 2c 20 30 | BOOLEAN| 0A9H, 0|
|00000f30| 37 46 48 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |7FH;..PR|OCEDURE |
|00000f40| 5b 43 4f 44 45 5d 20 44 | 69 61 6c 6f 67 53 65 6c |[CODE] D|ialogSel|
|00000f50| 65 63 74 2a 20 28 74 68 | 65 45 76 65 6e 74 3a 20 |ect* (th|eEvent: |
|00000f60| 4d 61 63 45 76 65 6e 74 | 4d 67 72 2e 45 76 65 6e |MacEvent|Mgr.Even|
|00000f70| 74 52 65 63 6f 72 64 3b | 0d 09 09 09 09 09 09 09 |tRecord;|........|
|00000f80| 09 56 41 52 20 74 68 65 | 44 69 61 6c 6f 67 3a 20 |.VAR the|Dialog: |
|00000f90| 44 69 61 6c 6f 67 50 74 | 72 3b 20 56 41 52 20 69 |DialogPt|r; VAR i|
|00000fa0| 74 65 6d 48 69 74 3a 20 | 49 4e 54 45 47 45 52 29 |temHit: |INTEGER)|
|00000fb0| 3a 20 42 4f 4f 4c 45 41 | 4e 20 30 41 39 48 2c 20 |: BOOLEA|N 0A9H, |
|00000fc0| 30 38 30 48 3b 0d 0d 09 | 50 52 4f 43 45 44 55 52 |080H;...|PROCEDUR|
|00000fd0| 45 20 5b 4e 4f 53 54 4b | 43 48 4b 5d 20 44 6c 67 |E [NOSTK|CHK] Dlg|
|00000fe0| 43 75 74 2a 20 28 64 69 | 61 6c 6f 67 3a 20 44 69 |Cut* (di|alog: Di|
|00000ff0| 61 6c 6f 67 50 74 72 29 | 3b 0d 09 42 45 47 49 4e |alogPtr)|;..BEGIN|
|00001000| 0d 09 09 49 46 20 64 69 | 61 6c 6f 67 2e 65 64 69 |...IF di|alog.edi|
|00001010| 74 46 69 65 6c 64 20 3e | 3d 20 30 20 54 48 45 4e |tField >|= 0 THEN|
|00001020| 20 4d 61 63 54 65 78 74 | 45 64 69 74 2e 54 45 43 | MacText|Edit.TEC|
|00001030| 75 74 28 64 69 61 6c 6f | 67 2e 74 65 78 74 48 29 |ut(dialo|g.textH)|
|00001040| 20 45 4e 44 0d 09 45 4e | 44 20 44 6c 67 43 75 74 | END..EN|D DlgCut|
|00001050| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 5b 4e |;...PROC|EDURE [N|
|00001060| 4f 53 54 4b 43 48 4b 5d | 20 44 6c 67 43 6f 70 79 |OSTKCHK]| DlgCopy|
|00001070| 2a 20 28 64 69 61 6c 6f | 67 3a 20 44 69 61 6c 6f |* (dialo|g: Dialo|
|00001080| 67 50 74 72 29 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |gPtr);..|BEGIN...|
|00001090| 49 46 20 64 69 61 6c 6f | 67 2e 65 64 69 74 46 69 |IF dialo|g.editFi|
|000010a0| 65 6c 64 20 3e 3d 20 30 | 20 54 48 45 4e 20 4d 61 |eld >= 0| THEN Ma|
|000010b0| 63 54 65 78 74 45 64 69 | 74 2e 54 45 43 6f 70 79 |cTextEdi|t.TECopy|
|000010c0| 28 64 69 61 6c 6f 67 2e | 74 65 78 74 48 29 20 45 |(dialog.|textH) E|
|000010d0| 4e 44 0d 09 45 4e 44 20 | 44 6c 67 43 6f 70 79 3b |ND..END |DlgCopy;|
|000010e0| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 5b 4e 4f |...PROCE|DURE [NO|
|000010f0| 53 54 4b 43 48 4b 5d 20 | 44 6c 67 50 61 73 74 65 |STKCHK] |DlgPaste|
|00001100| 2a 20 28 64 69 61 6c 6f | 67 3a 20 44 69 61 6c 6f |* (dialo|g: Dialo|
|00001110| 67 50 74 72 29 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |gPtr);..|BEGIN...|
|00001120| 49 46 20 64 69 61 6c 6f | 67 2e 65 64 69 74 46 69 |IF dialo|g.editFi|
|00001130| 65 6c 64 20 3e 3d 20 30 | 20 54 48 45 4e 20 4d 61 |eld >= 0| THEN Ma|
|00001140| 63 54 65 78 74 45 64 69 | 74 2e 54 45 50 61 73 74 |cTextEdi|t.TEPast|
|00001150| 65 28 64 69 61 6c 6f 67 | 2e 74 65 78 74 48 29 20 |e(dialog|.textH) |
|00001160| 45 4e 44 0d 09 45 4e 44 | 20 44 6c 67 50 61 73 74 |END..END| DlgPast|
|00001170| 65 3b 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 5b |e;...PRO|CEDURE [|
|00001180| 4e 4f 53 54 4b 43 48 4b | 5d 20 44 6c 67 44 65 6c |NOSTKCHK|] DlgDel|
|00001190| 65 74 65 2a 20 28 64 69 | 61 6c 6f 67 3a 20 44 69 |ete* (di|alog: Di|
|000011a0| 61 6c 6f 67 50 74 72 29 | 3b 0d 09 42 45 47 49 4e |alogPtr)|;..BEGIN|
|000011b0| 0d 09 09 49 46 20 64 69 | 61 6c 6f 67 2e 65 64 69 |...IF di|alog.edi|
|000011c0| 74 46 69 65 6c 64 20 3e | 3d 20 30 20 54 48 45 4e |tField >|= 0 THEN|
|000011d0| 20 4d 61 63 54 65 78 74 | 45 64 69 74 2e 54 45 44 | MacText|Edit.TED|
|000011e0| 65 6c 65 74 65 28 64 69 | 61 6c 6f 67 2e 74 65 78 |elete(di|alog.tex|
|000011f0| 74 48 29 20 45 4e 44 0d | 09 45 4e 44 20 44 6c 67 |tH) END.|.END Dlg|
|00001200| 44 65 6c 65 74 65 3b 0d | 0d 09 50 52 4f 43 45 44 |Delete;.|..PROCED|
|00001210| 55 52 45 20 5b 43 4f 44 | 45 5d 20 44 72 61 77 44 |URE [COD|E] DrawD|
|00001220| 69 61 6c 6f 67 2a 20 28 | 64 69 61 6c 6f 67 3a 20 |ialog* (|dialog: |
|00001230| 44 69 61 6c 6f 67 50 74 | 72 29 20 30 41 39 48 2c |DialogPt|r) 0A9H,|
|00001240| 20 30 38 31 48 3b 0d 0d | 0d 09 28 2a 2a 20 49 6e | 081H;..|..(** In|
|00001250| 76 6f 6b 69 6e 67 20 41 | 6c 65 72 74 73 20 2a 2a |voking A|lerts **|
|00001260| 29 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 5b 43 |)...PROC|EDURE [C|
|00001270| 4f 44 45 5d 20 41 6c 65 | 72 74 2a 20 28 61 6c 65 |ODE] Ale|rt* (ale|
|00001280| 72 74 49 44 3a 20 49 4e | 54 45 47 45 52 3b 20 66 |rtID: IN|TEGER; f|
|00001290| 69 6c 74 65 72 50 72 6f | 63 3a 20 4d 61 63 54 79 |ilterPro|c: MacTy|
|000012a0| 70 65 73 2e 50 72 6f 63 | 50 74 72 29 3a 20 49 4e |pes.Proc|Ptr): IN|
|000012b0| 54 45 47 45 52 20 30 41 | 39 48 2c 20 30 38 35 48 |TEGER 0A|9H, 085H|
|000012c0| 3b 0d 09 50 52 4f 43 45 | 44 55 52 45 20 5b 43 4f |;..PROCE|DURE [CO|
|000012d0| 44 45 5d 20 53 74 6f 70 | 41 6c 65 72 74 2a 20 28 |DE] Stop|Alert* (|
|000012e0| 61 6c 65 72 74 49 44 3a | 20 49 4e 54 45 47 45 52 |alertID:| INTEGER|
|000012f0| 3b 20 66 69 6c 74 65 72 | 50 72 6f 63 3a 20 4d 61 |; filter|Proc: Ma|
|00001300| 63 54 79 70 65 73 2e 50 | 72 6f 63 50 74 72 29 3a |cTypes.P|rocPtr):|
|00001310| 20 49 4e 54 45 47 45 52 | 20 30 41 39 48 2c 20 30 | INTEGER| 0A9H, 0|
|00001320| 38 36 48 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |86H;..PR|OCEDURE |
|00001330| 5b 43 4f 44 45 5d 20 4e | 6f 74 65 41 6c 65 72 74 |[CODE] N|oteAlert|
|00001340| 2a 20 28 61 6c 65 72 74 | 49 44 3a 20 49 4e 54 45 |* (alert|ID: INTE|
|00001350| 47 45 52 3b 20 66 69 6c | 74 65 72 50 72 6f 63 3a |GER; fil|terProc:|
|00001360| 20 4d 61 63 54 79 70 65 | 73 2e 50 72 6f 63 50 74 | MacType|s.ProcPt|
|00001370| 72 29 3a 20 49 4e 54 45 | 47 45 52 20 30 41 39 48 |r): INTE|GER 0A9H|
|00001380| 2c 20 30 38 37 48 3b 0d | 09 50 52 4f 43 45 44 55 |, 087H;.|.PROCEDU|
|00001390| 52 45 20 5b 43 4f 44 45 | 5d 20 43 61 75 74 69 6f |RE [CODE|] Cautio|
|000013a0| 6e 41 6c 65 72 74 2a 20 | 28 61 6c 65 72 74 49 44 |nAlert* |(alertID|
|000013b0| 3a 20 49 4e 54 45 47 45 | 52 3b 20 66 69 6c 74 65 |: INTEGE|R; filte|
|000013c0| 72 50 72 6f 63 3a 20 4d | 61 63 54 79 70 65 73 2e |rProc: M|acTypes.|
|000013d0| 50 72 6f 63 50 74 72 29 | 3a 20 49 4e 54 45 47 45 |ProcPtr)|: INTEGE|
|000013e0| 52 20 30 41 39 48 2c 20 | 30 38 38 48 3b 0d 0d 0d |R 0A9H, |088H;...|
|000013f0| 09 28 2a 2a 20 4d 61 6e | 69 70 75 6c 61 74 69 6e |.(** Man|ipulatin|
|00001400| 67 20 49 74 65 6d 73 20 | 69 6e 20 44 69 61 6c 6f |g Items |in Dialo|
|00001410| 67 73 20 61 6e 64 20 41 | 6c 65 72 74 73 20 2a 2a |gs and A|lerts **|
|00001420| 29 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 5b 43 |)...PROC|EDURE [C|
|00001430| 4f 44 45 5d 20 50 61 72 | 61 6d 54 65 78 74 2a 20 |ODE] Par|amText* |
|00001440| 28 70 61 72 61 6d 30 2c | 20 70 61 72 61 6d 31 2c |(param0,| param1,|
|00001450| 20 70 61 72 61 6d 32 2c | 20 70 61 72 61 6d 33 3a | param2,| param3:|
|00001460| 20 4d 61 63 54 79 70 65 | 73 2e 53 74 72 32 35 35 | MacType|s.Str255|
|00001470| 29 20 30 41 39 48 2c 20 | 30 38 42 48 3b 0d 09 50 |) 0A9H, |08BH;..P|
|00001480| 52 4f 43 45 44 55 52 45 | 20 5b 43 4f 44 45 5d 20 |ROCEDURE| [CODE] |
|00001490| 47 65 74 44 49 74 65 6d | 2a 20 28 74 68 65 44 69 |GetDItem|* (theDi|
|000014a0| 61 6c 6f 67 3a 20 44 69 | 61 6c 6f 67 50 74 72 3b |alog: Di|alogPtr;|
|000014b0| 20 69 74 65 6d 4e 6f 3a | 20 49 4e 54 45 47 45 52 | itemNo:| INTEGER|
|000014c0| 3b 20 56 41 52 20 69 74 | 65 6d 54 79 70 65 3a 20 |; VAR it|emType: |
|000014d0| 49 4e 54 45 47 45 52 3b | 0d 09 09 09 09 09 09 56 |INTEGER;|.......V|
|000014e0| 41 52 20 69 74 65 6d 3a | 20 4d 61 63 54 79 70 65 |AR item:| MacType|
|000014f0| 73 2e 48 61 6e 64 6c 65 | 3b 20 56 41 52 20 62 6f |s.Handle|; VAR bo|
|00001500| 78 3a 20 4d 61 63 54 79 | 70 65 73 2e 52 65 63 74 |x: MacTy|pes.Rect|
|00001510| 29 20 30 41 39 48 2c 20 | 30 38 44 48 3b 0d 09 50 |) 0A9H, |08DH;..P|
|00001520| 52 4f 43 45 44 55 52 45 | 20 5b 43 4f 44 45 5d 20 |ROCEDURE| [CODE] |
|00001530| 53 65 74 44 49 74 65 6d | 2a 20 28 74 68 65 44 69 |SetDItem|* (theDi|
|00001540| 61 6c 6f 67 3a 20 44 69 | 61 6c 6f 67 50 74 72 3b |alog: Di|alogPtr;|
|00001550| 20 69 74 65 6d 4e 6f 3a | 20 49 4e 54 45 47 45 52 | itemNo:| INTEGER|
|00001560| 3b 0d 09 09 09 09 09 09 | 69 74 65 6d 54 79 70 65 |;.......|itemType|
|00001570| 3a 20 49 4e 54 45 47 45 | 52 3b 20 69 74 65 6d 3a |: INTEGE|R; item:|
|00001580| 20 4d 61 63 54 79 70 65 | 73 2e 48 61 6e 64 6c 65 | MacType|s.Handle|
|00001590| 3b 20 62 6f 78 3a 20 4d | 61 63 54 79 70 65 73 2e |; box: M|acTypes.|
|000015a0| 52 65 63 74 29 20 30 41 | 39 48 2c 20 30 38 45 48 |Rect) 0A|9H, 08EH|
|000015b0| 3b 0d 09 50 52 4f 43 45 | 44 55 52 45 20 5b 43 4f |;..PROCE|DURE [CO|
|000015c0| 44 45 5d 20 47 65 74 49 | 54 65 78 74 2a 20 28 69 |DE] GetI|Text* (i|
|000015d0| 74 65 6d 3a 20 4d 61 63 | 54 79 70 65 73 2e 48 61 |tem: Mac|Types.Ha|
|000015e0| 6e 64 6c 65 3b 20 56 41 | 52 20 74 65 78 74 3a 20 |ndle; VA|R text: |
|000015f0| 4d 61 63 54 79 70 65 73 | 2e 53 74 72 32 35 35 29 |MacTypes|.Str255)|
|00001600| 20 30 41 39 48 2c 20 30 | 39 30 48 3b 0d 09 50 52 | 0A9H, 0|90H;..PR|
|00001610| 4f 43 45 44 55 52 45 20 | 5b 43 4f 44 45 5d 20 53 |OCEDURE |[CODE] S|
|00001620| 65 74 49 54 65 78 74 2a | 20 28 69 74 65 6d 3a 20 |etIText*| (item: |
|00001630| 4d 61 63 54 79 70 65 73 | 2e 48 61 6e 64 6c 65 3b |MacTypes|.Handle;|
|00001640| 20 74 65 78 74 3a 20 4d | 61 63 54 79 70 65 73 2e | text: M|acTypes.|
|00001650| 53 74 72 32 35 35 29 20 | 30 41 39 48 2c 20 30 38 |Str255) |0A9H, 08|
|00001660| 46 48 3b 0d 09 50 52 4f | 43 45 44 55 52 45 20 5b |FH;..PRO|CEDURE [|
|00001670| 43 4f 44 45 5d 20 53 65 | 6c 49 54 65 78 74 2a 20 |CODE] Se|lIText* |
|00001680| 28 74 68 65 44 69 61 6c | 6f 67 3a 20 44 69 61 6c |(theDial|og: Dial|
|00001690| 6f 67 50 74 72 3b 20 69 | 74 65 6d 4e 6f 3a 20 49 |ogPtr; i|temNo: I|
|000016a0| 4e 54 45 47 45 52 3b 20 | 73 74 61 72 74 53 65 6c |NTEGER; |startSel|
|000016b0| 2c 20 65 6e 64 53 65 6c | 3a 20 49 4e 54 45 47 45 |, endSel|: INTEGE|
|000016c0| 52 29 20 30 41 39 48 2c | 20 30 37 45 48 3b 0d 0d |R) 0A9H,| 07EH;..|
|000016d0| 09 50 52 4f 43 45 44 55 | 52 45 20 5b 4e 4f 53 54 |.PROCEDU|RE [NOST|
|000016e0| 4b 43 48 4b 5d 20 47 65 | 74 41 6c 72 74 53 74 61 |KCHK] Ge|tAlrtSta|
|000016f0| 67 65 2a 20 28 29 3a 20 | 49 4e 54 45 47 45 52 3b |ge* (): |INTEGER;|
|00001700| 0d 09 09 56 41 52 20 73 | 74 61 67 65 3a 20 49 4e |...VAR s|tage: IN|
|00001710| 54 45 47 45 52 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |TEGER;..|BEGIN...|
|00001720| 53 59 53 54 45 4d 2e 4d | 4f 56 45 28 41 43 6f 75 |SYSTEM.M|OVE(ACou|
|00001730| 6e 74 2c 20 53 59 53 54 | 45 4d 2e 41 44 52 28 73 |nt, SYST|EM.ADR(s|
|00001740| 74 61 67 65 29 2c 20 32 | 29 3b 0d 09 09 52 45 54 |tage), 2|);...RET|
|00001750| 55 52 4e 20 73 74 61 67 | 65 0d 09 45 4e 44 20 47 |URN stag|e..END G|
|00001760| 65 74 41 6c 72 74 53 74 | 61 67 65 3b 0d 0d 09 50 |etAlrtSt|age;...P|
|00001770| 52 4f 43 45 44 55 52 45 | 20 5b 4e 4f 53 54 4b 43 |ROCEDURE| [NOSTKC|
|00001780| 48 4b 5d 20 52 65 73 65 | 74 41 6c 72 74 53 74 61 |HK] Rese|tAlrtSta|
|00001790| 67 65 2a 3b 0d 09 09 56 | 41 52 20 73 74 61 67 65 |ge*;...V|AR stage|
|000017a0| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 42 45 47 49 |: INTEGE|R;..BEGI|
|000017b0| 4e 0d 09 09 73 74 61 67 | 65 20 3a 3d 20 2d 31 3b |N...stag|e := -1;|
|000017c0| 0d 09 09 53 59 53 54 45 | 4d 2e 4d 4f 56 45 28 53 |...SYSTE|M.MOVE(S|
|000017d0| 59 53 54 45 4d 2e 41 44 | 52 28 73 74 61 67 65 29 |YSTEM.AD|R(stage)|
|000017e0| 2c 20 41 43 6f 75 6e 74 | 2c 20 32 29 0d 09 45 4e |, ACount|, 2)..EN|
|000017f0| 44 20 52 65 73 65 74 41 | 6c 72 74 53 74 61 67 65 |D ResetA|lrtStage|
|00001800| 3b 0d 0d 0d 09 28 2a 2a | 20 31 32 38 4b 20 52 4f |;....(**| 128K RO|
|00001810| 4d 20 2a 2a 29 0d 0d 09 | 50 52 4f 43 45 44 55 52 |M **)...|PROCEDUR|
|00001820| 45 20 5b 43 4f 44 45 5d | 20 48 69 64 65 44 49 74 |E [CODE]| HideDIt|
|00001830| 65 6d 2a 20 28 74 68 65 | 44 69 61 6c 6f 67 3a 20 |em* (the|Dialog: |
|00001840| 44 69 61 6c 6f 67 50 74 | 72 3b 20 69 74 65 6d 4e |DialogPt|r; itemN|
|00001850| 6f 3a 20 49 4e 54 45 47 | 45 52 29 20 30 41 38 48 |o: INTEG|ER) 0A8H|
|00001860| 2c 20 30 32 37 48 3b 0d | 09 50 52 4f 43 45 44 55 |, 027H;.|.PROCEDU|
|00001870| 52 45 20 5b 43 4f 44 45 | 5d 20 53 68 6f 77 44 49 |RE [CODE|] ShowDI|
|00001880| 74 65 6d 2a 20 28 74 68 | 65 44 69 61 6c 6f 67 3a |tem* (th|eDialog:|
|00001890| 20 44 69 61 6c 6f 67 50 | 74 72 3b 20 69 74 65 6d | DialogP|tr; item|
|000018a0| 4e 6f 3a 20 49 4e 54 45 | 47 45 52 29 20 30 41 38 |No: INTE|GER) 0A8|
|000018b0| 48 2c 20 30 32 38 48 3b | 0d 09 50 52 4f 43 45 44 |H, 028H;|..PROCED|
|000018c0| 55 52 45 20 5b 43 4f 44 | 45 5d 20 46 69 6e 64 44 |URE [COD|E] FindD|
|000018d0| 49 74 65 6d 2a 20 28 74 | 68 65 44 69 61 6c 6f 67 |Item* (t|heDialog|
|000018e0| 3a 20 44 69 61 6c 6f 67 | 50 74 72 3b 20 74 68 65 |: Dialog|Ptr; the|
|000018f0| 50 74 3a 20 4d 61 63 54 | 79 70 65 73 2e 50 6f 69 |Pt: MacT|ypes.Poi|
|00001900| 6e 74 29 3a 20 49 4e 54 | 45 47 45 52 20 30 41 39 |nt): INT|EGER 0A9|
|00001910| 48 2c 20 30 38 34 48 3b | 0d 09 50 52 4f 43 45 44 |H, 084H;|..PROCED|
|00001920| 55 52 45 20 5b 43 4f 44 | 45 5d 20 55 70 64 74 44 |URE [COD|E] UpdtD|
|00001930| 69 61 6c 6f 67 2a 20 28 | 74 68 65 44 69 61 6c 6f |ialog* (|theDialo|
|00001940| 67 3a 20 44 69 61 6c 6f | 67 50 74 72 3b 20 75 70 |g: Dialo|gPtr; up|
|00001950| 64 61 74 65 52 67 6e 3a | 20 4d 61 63 54 79 70 65 |dateRgn:| MacType|
|00001960| 73 2e 52 67 6e 48 61 6e | 64 6c 65 29 20 30 41 39 |s.RgnHan|dle) 0A9|
|00001970| 48 2c 20 30 38 37 48 3b | 0d 0d 09 50 52 4f 43 45 |H, 087H;|...PROCE|
|00001980| 44 55 52 45 20 5b 43 4f | 44 45 5d 20 49 6e 69 74 |DURE [CO|DE] Init|
|00001990| 44 69 61 6c 6f 67 73 2a | 20 28 72 65 73 74 61 72 |Dialogs*| (restar|
|000019a0| 74 50 72 6f 63 3a 20 4c | 4f 4e 47 49 4e 54 29 09 |tProc: L|ONGINT).|
|000019b0| 30 41 39 48 2c 20 30 37 | 42 48 3b 0d 0d 45 4e 44 |0A9H, 07|BH;..END|
|000019c0| 20 4d 61 63 44 69 61 6c | 6f 67 4d 67 72 2e 0d 82 | MacDial|ogMgr...|
|000019d0| f1 54 65 78 74 43 6f 6e | 74 72 6f 6c 6c 65 72 73 |.TextCon|trollers|
|000019e0| 2e 53 74 64 43 74 72 6c | 44 65 73 63 00 f1 54 65 |.StdCtrl|Desc..Te|
|000019f0| 78 74 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 43 6f |xtContro|llers.Co|
|00001a00| 6e 74 72 6f 6c 6c 65 72 | 44 65 73 63 00 f1 43 6f |ntroller|Desc..Co|
|00001a10| 6e 74 61 69 6e 65 72 73 | 2e 43 6f 6e 74 72 6f 6c |ntainers|.Control|
|00001a20| 6c 65 72 44 65 73 63 00 | f1 43 6f 6e 74 72 6f 6c |lerDesc.|.Control|
|00001a30| 6c 65 72 73 2e 43 6f 6e | 74 72 6f 6c 6c 65 72 44 |lers.Con|trollerD|
|00001a40| 65 73 63 00 f2 04 00 00 | 00 00 00 00 00 14 00 00 |esc.....|........|
|00001a50| 00 00 00 00 00 09 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a60| 00 00 00 00 01 82 f1 54 | 65 78 74 52 75 6c 65 72 |.......T|extRuler|
|00001a70| 73 2e 53 74 64 52 75 6c | 65 72 44 65 73 63 00 f1 |s.StdRul|erDesc..|
|00001a80| 54 65 78 74 52 75 6c 65 | 72 73 2e 52 75 6c 65 72 |TextRule|rs.Ruler|
|00001a90| 44 65 73 63 00 f2 03 00 | 00 00 00 00 00 00 ab 00 |Desc....|........|
|00001aa0| 00 00 07 00 00 00 a3 00 | 00 00 00 00 00 83 f1 54 |........|.......T|
|00001ab0| 65 78 74 52 75 6c 65 72 | 73 2e 53 74 64 53 74 79 |extRuler|s.StdSty|
|00001ac0| 6c 65 44 65 73 63 00 f1 | 54 65 78 74 52 75 6c 65 |leDesc..|TextRule|
|00001ad0| 72 73 2e 53 74 79 6c 65 | 44 65 73 63 00 f2 07 00 |rs.Style|Desc....|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 08 00 00 00 5a 00 |........|......Z.|
|00001af0| 00 00 00 00 00 00 82 f1 | 54 65 78 74 52 75 6c 65 |........|TextRule|
|00001b00| 72 73 2e 41 74 74 72 69 | 62 75 74 65 73 44 65 73 |rs.Attri|butesDes|
|00001b10| 63 00 f2 04 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.......|........|
|00001b20| 00 00 00 24 00 00 00 00 | 01 00 00 00 00 00 00 00 |...$....|........|
|00001b30| 00 20 a3 5a 00 00 00 00 | 00 18 f0 01 00 38 63 00 |. .Z....|.....8c.|
|00001b40| 00 01 00 00 00 21 00 00 | 00 00 00 00 00 82 f2 0d |.....!..|........|
|00001b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 1f |........|........|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 47 65 6e |........|.....Gen|
|00001b70| 65 76 61 00 7c be 01 00 | 00 00 00 00 90 01 00 00 |eva.|...|........|
|00001b80| 00 00 00 00 00 00 00 00 | 00 00 e0 8c 01 00 e0 8c |........|........|
|00001b90| 01 00 00 30 5c 00 e0 b9 | 3b 3e 82 f1 44 6f 63 75 |...0\...|;>..Docu|
|00001ba0| 6d 65 6e 74 73 2e 43 6f | 6e 74 72 6f 6c 6c 65 72 |ments.Co|ntroller|
|00001bb0| 44 65 73 63 00 f2 11 00 | 00 00 00 00 00 00 00 00 |Desc....|........|
|00001bc0| 00 00 00 00 00 00 08 00 | 00 00 00 00 00 00 00 08 |........|........|
|00001bd0| 00 00 00 00 94 4d 73 00 | 18 2b a3 00 ac 9e 05 00 |.....Ms.|.+......|
|00001be0| 48 d0 05 00 e8 ae 6d 00 | d0 5a 9d 00 01 00 00 00 |H.....m.|.Z......|
|00001bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c00| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00001c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c30| 09 44 69 61 6c 6f 67 4d | 67 72 02 00 00 00 50 61 |.DialogM|gr....Pa|
|00001c40| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|00001c50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c70| 00 00 ae 04 81 84 00 00 | 00 00 00 00 01 3e 65 20 |........|.....>e |
|00001c80| 4f 75 74 6c 69 6e 65 00 | 08 43 59 13 41 47 20 4f |Outline.|.CY.AG O|
|00001c90| 6c 64 20 46 61 63 65 20 | 52 65 67 75 6c 61 72 00 |ld Face |Regular.|
|00001ca0| 08 64 78 12 41 47 20 4f | 6c 64 20 46 61 63 65 20 |.dx.AG O|ld Face |
|00001cb0| 53 68 61 64 65 64 00 03 | 2b b2 14 41 47 20 53 63 |Shaded..|+..AG Sc|
|00001cc0| 68 6f 6f 6c 62 6f 6f 6b | 20 4d 65 64 69 75 6d 00 |hoolbook| Medium.|
|00001cd0| 03 39 40 15 41 47 20 53 | 63 68 6f 6f 6c 62 6f 6f |.9@.AG S|choolboo|
|00001ce0| 6b 20 4d 65 64 69 75 6d | 41 00 03 25 25 15 41 47 |k Medium|A..%%.AG|
|00001cf0| 20 53 63 68 6f 6f 6c 62 | 6f 6f 6b 20 52 65 67 75 | Schoolb|ook Regu|
|00001d00| 00 00 00 08 00 3c 00 05 | 01 db 01 f8 00 00 01 00 |.....<..|........|
|00001d10| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 58 34 38 |........|...2.X48|
|00001d20| 1b ea 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.......2|..WNSP..|
|00001d30| 00 0a 00 01 ff ff 00 00 | 00 00 00 58 37 c4 00 00 |........|...X7...|
|00001d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+